home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_15_1987_Transactor_Publishing.d64 / chroma scale (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  474b  |  18 lines
  1. 110 rem** routine to generate chromatic
  2. 120 rem** scale register values (hi/lo)
  3. 130 rem** by arne storjohann - 86,05,04
  4. 140 :
  5. 150 dim lo%(95),hi%(95): g=2^(1/12)
  6. 160 f=3520*g*g: d=0.06095948: b=256
  7. 170 for i = 95 to 0 step -1: n=f/d: hi%(i)=n/b
  8. 180 lo%(i)=n-hi%(i)*b: f=f/g: next
  9. 190 :
  10. 200 rem ** demo **
  11. 210 :
  12. 220 s=54272: for i = s to s+15: poke i,0: next
  13. 230 poke s+5,96: poke s+6,251: poke s+4,33
  14. 240 poke s+24,15: for i=-72 to 72
  15. 250 x=71-abs(i)+16: poke s,lo%(x)
  16. 260 poke s+1,hi%(x):for j=1to200: next
  17. 270 next: poke s+4,32: end
  18.